home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Puzzler.dxr / 00001_Startup.ls next >
Encoding:
Text File  |  1998-09-14  |  622 b   |  26 lines
  1. global gMasterData, gPuzzleObjects, gMoverSprite
  2.  
  3. on prepareMovie
  4.   setUserArea(gMasterData, #puzzler)
  5.   set gPuzzleObjects to [#puzzle1: #empty, #puzzle2: #empty, #puzzle3: #empty]
  6.   activate(gMasterData)
  7.   setFingerCursor(#on, [40, 41, 42, 43, 44])
  8.   set gMoverSprite to 48
  9.   set the keyDownScript to "quitCatcher"
  10.   cursor(0)
  11. end
  12.  
  13. on stopMovie
  14.   set gPuzzleObjects to 0
  15. end
  16.  
  17. on initFields
  18.   set vEmptyList to []
  19.   repeat with x in vEmptyList
  20.     set the text of member x to " "
  21.     set the textFont of member x to "Palatino"
  22.     set the textSize of member x to 14
  23.     set the text of member x to EMPTY
  24.   end repeat
  25. end
  26.